home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2823.ZIP / GRAFWIZ.BI < prev    next >
Text File  |  1991-02-11  |  11KB  |  221 lines
  1. DECLARE FUNCTION EGetBorder% ()
  2. DECLARE FUNCTION EGetPalette% (BYVAL PalReg%)
  3. DECLARE FUNCTION GetBFont% ()
  4. DECLARE FUNCTION GN0GetPel% (BYVAL X%, BYVAL Y%)
  5. DECLARE FUNCTION GN1GetPel% (BYVAL X%, BYVAL Y%)
  6. DECLARE FUNCTION GN2GetPel% (BYVAL X%, BYVAL Y%)
  7. DECLARE FUNCTION GN4GetPel% (BYVAL X%, BYVAL Y%)
  8. DECLARE FUNCTION G1GetPel% (BYVAL X%, BYVAL Y%)
  9. DECLARE FUNCTION G2GetPel% (BYVAL X%, BYVAL Y%)
  10. DECLARE FUNCTION G3GetPel% (BYVAL X%, BYVAL Y%)
  11. DECLARE FUNCTION G7GetPel% (BYVAL X%, BYVAL Y%)
  12. DECLARE FUNCTION G8GetPel% (BYVAL X%, BYVAL Y%)
  13. DECLARE FUNCTION G9GetPel% (BYVAL X%, BYVAL Y%)
  14. DECLARE FUNCTION G11GetPel% (BYVAL X%, BYVAL Y%)
  15. DECLARE FUNCTION G12GetPel% (BYVAL X%, BYVAL Y%)
  16. DECLARE FUNCTION G13GetPel% (BYVAL X%, BYVAL Y%)
  17. DECLARE SUB BFont (BYVAL FontNr%)
  18. DECLARE SUB EBlink (BYVAL Blink%)
  19. DECLARE SUB EBorder (BYVAL Colour%)
  20. DECLARE SUB EPalette (BYVAL PalReg%, BYVAL Colour%)
  21. DECLARE SUB GetDisplay (Adapter%, Mono%)
  22. DECLARE SUB GN0Banner (St$, X%, Y%, Xmul%, Ymul%)
  23. DECLARE SUB GN0Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  24. DECLARE SUB GN0Cls ()
  25. DECLARE SUB GN0Color (BYVAL Foregnd%, BYVAL Backgnd%)
  26. DECLARE SUB GN0Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  27. DECLARE SUB GN0GetColor (Foregnd%, Backgnd%)
  28. DECLARE SUB GN0GetLocate (Row%, Column%)
  29. DECLARE SUB GN0Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  30. DECLARE SUB GN0Locate (BYVAL Row%, BYVAL Column%)
  31. DECLARE SUB GN0Mode (BYVAL ModeNr%)
  32. DECLARE SUB GN0Plot (BYVAL X%, BYVAL Y%)
  33. DECLARE SUB GN0Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  34. DECLARE SUB GN0Write (St$)
  35. DECLARE SUB GN0WriteLn (St$)
  36. DECLARE SUB GN1Banner (St$, X%, Y%, Xmul%, Ymul%)
  37. DECLARE SUB GN1Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  38. DECLARE SUB GN1Cls ()
  39. DECLARE SUB GN1Color (BYVAL Foregnd%, BYVAL Backgnd%)
  40. DECLARE SUB GN1Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  41. DECLARE SUB GN1GetColor (Foregnd%, Backgnd%)
  42. DECLARE SUB GN1GetLocate (Row%, Column%)
  43. DECLARE SUB GN1Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  44. DECLARE SUB GN1Locate (BYVAL Row%, BYVAL Column%)
  45. DECLARE SUB GN1Mode (BYVAL ModeNr%)
  46. DECLARE SUB GN1Plot (BYVAL X%, BYVAL Y%)
  47. DECLARE SUB GN1Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  48. DECLARE SUB GN1Write (St$)
  49. DECLARE SUB GN1WriteLn (St$)
  50. DECLARE SUB GN2Banner (St$, X%, Y%, Xmul%, Ymul%)
  51. DECLARE SUB GN2Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  52. DECLARE SUB GN2Cls ()
  53. DECLARE SUB GN2Color (BYVAL Foregnd%, BYVAL Backgnd%)
  54. DECLARE SUB GN2Display ()
  55. DECLARE SUB GN2Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  56. DECLARE SUB GN2GetColor (Foregnd%, Backgnd%)
  57. DECLARE SUB GN2GetLocate (Row%, Column%)
  58. DECLARE SUB GN2Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  59. DECLARE SUB GN2Locate (BYVAL Row%, BYVAL Column%)
  60. DECLARE SUB GN2Mode (ModeNr%)
  61. DECLARE SUB GN2Plot (BYVAL X%, BYVAL Y%)
  62. DECLARE SUB GN2Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  63. DECLARE SUB GN2Print (Device$)
  64. DECLARE SUB GN2Write (St$)
  65. DECLARE SUB GN2WriteLn (St$)
  66. DECLARE SUB GN4Banner (St$, X%, Y%, Xmul%, Ymul%)
  67. DECLARE SUB GN4Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  68. DECLARE SUB GN4Cls ()
  69. DECLARE SUB GN4Color (BYVAL Foregnd%, BYVAL Backgnd%)
  70. DECLARE SUB GN4Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  71. DECLARE SUB GN4GetColor (Foregnd%, Backgnd%)
  72. DECLARE SUB GN4GetLocate (Row%, Column%)
  73. DECLARE SUB GN4Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  74. DECLARE SUB GN4Locate (BYVAL Row%, BYVAL Column%)
  75. DECLARE SUB GN4Mode (BYVAL ModeNr%)
  76. DECLARE SUB GN4Plot (BYVAL X%, BYVAL Y%)
  77. DECLARE SUB GN4Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  78. DECLARE SUB GN4Write (St$)
  79. DECLARE SUB GN4WriteLn (St$)
  80. DECLARE SUB G1Banner (St$, X%, Y%, Xmul%, Ymul%)
  81. DECLARE SUB G1Border (BYVAL Colour%)
  82. DECLARE SUB G1Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  83. DECLARE SUB G1Cls ()
  84. DECLARE SUB G1Color (BYVAL Foregnd%, BYVAL Backgnd%)
  85. DECLARE SUB G1Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  86. DECLARE SUB G1GetColor (Foregnd%, Backgnd%)
  87. DECLARE SUB G1GetLocate (Row%, Column%)
  88. DECLARE SUB G1Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  89. DECLARE SUB G1Locate (BYVAL Row%, BYVAL Column%)
  90. DECLARE SUB G1MirrorH (ImageA%(), ImageB%())
  91. DECLARE SUB G1Mode (BYVAL ModeNr%)
  92. DECLARE SUB G1PaletteA (BYVAL PaletteNr%)
  93. DECLARE SUB G1PaletteB (BYVAL PaletteNr%)
  94. DECLARE SUB G1Plot (BYVAL X%, BYVAL Y%)
  95. DECLARE SUB G1Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  96. DECLARE SUB G1Write (St$)
  97. DECLARE SUB G1WriteLn (St$)
  98. DECLARE SUB G2Banner (St$, X%, Y%, Xmul%, Ymul%)
  99. DECLARE SUB G2Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  100. DECLARE SUB G2Cls ()
  101. DECLARE SUB G2Color (BYVAL Foregnd%, BYVAL Backgnd%)
  102. DECLARE SUB G2Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  103. DECLARE SUB G2Get (X1%, Y1%, X2%, Y2%, Image%())
  104. DECLARE SUB G2GetColor (Foregnd%, Backgnd%)
  105. DECLARE SUB G2GetLocate (Row%, Column%)
  106. DECLARE SUB G2Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  107. DECLARE SUB G2LoadMAC (File$, Image%(), StartRow%)
  108. DECLARE SUB G2LoadPCX (File$, Image%(), ErrCode%)
  109. DECLARE SUB G2Locate (BYVAL Row%, BYVAL Column%)
  110. DECLARE SUB G2MirrorH (ImageA%(), ImageB%())
  111. DECLARE SUB G2Mode (BYVAL ModeNr%)
  112. DECLARE SUB G2Plot (BYVAL X%, BYVAL Y%)
  113. DECLARE SUB G2Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  114. DECLARE SUB G2Put (X%, Y%, Image%())
  115. DECLARE SUB G2Write (St$)
  116. DECLARE SUB G2WriteLn (St$)
  117. DECLARE SUB G3Banner (St$, X%, Y%, Xmul%, Ymul%)
  118. DECLARE SUB G3Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  119. DECLARE SUB G3Cls ()
  120. DECLARE SUB G3Color (BYVAL Foregnd%, BYVAL Backgnd%)
  121. DECLARE SUB G3Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  122. DECLARE SUB G3GetColor (Foregnd%, Backgnd%)
  123. DECLARE SUB G3GetLocate (Row%, Column%)
  124. DECLARE SUB G3Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  125. DECLARE SUB G3Locate (BYVAL Row%, BYVAL Column%)
  126. DECLARE SUB G3Mode (BYVAL ModeNr%)
  127. DECLARE SUB G3Plot (BYVAL X%, BYVAL Y%)
  128. DECLARE SUB G3Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  129. DECLARE SUB G3Write (St$)
  130. DECLARE SUB G3WriteLn (St$)
  131. DECLARE SUB G7Banner (St$, X%, Y%, Xmul%, Ymul%)
  132. DECLARE SUB G7Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  133. DECLARE SUB G7Cls ()
  134. DECLARE SUB G7Color (BYVAL Foreground%, BYVAL Background%)
  135. DECLARE SUB G7GetColor (Foreground%, Background%)
  136. DECLARE SUB G7GetLocate (Row%, Column%)
  137. DECLARE SUB G7Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  138. DECLARE SUB G7Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  139. DECLARE SUB G7Locate (BYVAL Row%, BYVAL Column%)
  140. DECLARE SUB G7Mode (BYVAL Graphics%)
  141. DECLARE SUB G7Plot (BYVAL x%, BYVAL y%)
  142. DECLARE SUB G7Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  143. DECLARE SUB G7Write (St$)
  144. DECLARE SUB G7WriteLn (St$)
  145. DECLARE SUB G8Banner (St$, X%, Y%, Xmul%, Ymul%)
  146. DECLARE SUB G8Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  147. DECLARE SUB G8Cls ()
  148. DECLARE SUB G8Color (BYVAL Foreground%, BYVAL Background%)
  149. DECLARE SUB G8Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  150. DECLARE SUB G8GetColor (Foreground%, Background%)
  151. DECLARE SUB G8GetLocate (Row%, Column%)
  152. DECLARE SUB G8Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  153. DECLARE SUB G8Locate (BYVAL Row%, BYVAL Column%)
  154. DECLARE SUB G8Mode (BYVAL Graphics%)
  155. DECLARE SUB G8Plot (BYVAL x%, BYVAL y%)
  156. DECLARE SUB G8Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  157. DECLARE SUB G8Write (St$)
  158. DECLARE SUB G8WriteLn (St$)
  159. DECLARE SUB G9Banner (St$, X%, Y%, Xmul%, Ymul%)
  160. DECLARE SUB G9Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  161. DECLARE SUB G9Cls ()
  162. DECLARE SUB G9Color (BYVAL Foreground%, BYVAL Background%)
  163. DECLARE SUB G9Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  164. DECLARE SUB G9GetColor (Foreground%, Background%)
  165. DECLARE SUB G9GetLocate (Row%, Column%)
  166. DECLARE SUB G9Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  167. DECLARE SUB G9Locate (BYVAL Row%, BYVAL Column%)
  168. DECLARE SUB G9Mode (BYVAL Graphics%)
  169. DECLARE SUB G9Plot (BYVAL x%, BYVAL y%)
  170. DECLARE SUB G9Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  171. DECLARE SUB G9Write (St$)
  172. DECLARE SUB G9WriteLn (St$)
  173. DECLARE SUB G11Banner (St$, X%, Y%, Xmul%, Ymul%)
  174. DECLARE SUB G11Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  175. DECLARE SUB G11Cls ()
  176. DECLARE SUB G11Color (BYVAL Foreground%, BYVAL Background%)
  177. DECLARE SUB G11Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  178. DECLARE SUB G11GetColor (Foreground%, Background%)
  179. DECLARE SUB G11GetLocate (Row%, Column%)
  180. DECLARE SUB G11Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  181. DECLARE SUB G11Locate (BYVAL Row%, BYVAL Column%)
  182. DECLARE SUB G11Mode (BYVAL Graphics%)
  183. DECLARE SUB G11Plot (BYVAL X%, BYVAL Y%)
  184. DECLARE SUB G11Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  185. DECLARE SUB G11Write (St$)
  186. DECLARE SUB G11WriteLn (St$)
  187. DECLARE SUB G12Banner (St$, X%, Y%, Xmul%, Ymul%)
  188. DECLARE SUB G12Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  189. DECLARE SUB G12Cls ()
  190. DECLARE SUB G12Color (BYVAL Foreground%, BYVAL Background%)
  191. DECLARE SUB G12Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  192. DECLARE SUB G12GetColor (Foreground%, Background%)
  193. DECLARE SUB G12GetLocate (Row%, Column%)
  194. DECLARE SUB G12Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  195. DECLARE SUB G12Locate (BYVAL Row%, BYVAL Column%)
  196. DECLARE SUB G12Mode (BYVAL Graphics%)
  197. DECLARE SUB G12Plot (BYVAL X%, BYVAL Y%)
  198. DECLARE SUB G12Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  199. DECLARE SUB G12Write (St$)
  200. DECLARE SUB G12WriteLn (St$)
  201. DECLARE SUB G13Banner (St$, X%, Y%, Xmul%, Ymul%)
  202. DECLARE SUB G13Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  203. DECLARE SUB G13Cls ()
  204. DECLARE SUB G13Color (BYVAL Foreground%, BYVAL Background%)
  205. DECLARE SUB G13Ellipse (CenterX%, CenterY%, XRadius%, YRadius%)
  206. DECLARE SUB G13Get (X1%, Y1%, X2%, Y2%, Image%())
  207. DECLARE SUB G13GetColor (Foreground%, Background%)
  208. DECLARE SUB G13GetLocate (Row%, Column%)
  209. DECLARE SUB G13Line (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
  210. DECLARE SUB G13Locate (BYVAL Row%, BYVAL Column%)
  211. DECLARE SUB G13Mode (BYVAL Graphics%)
  212. DECLARE SUB G13Plot (BYVAL X%, BYVAL Y%)
  213. DECLARE SUB G13Put (StartX%, StartY%, Image%())
  214. DECLARE SUB G13Polygon (X%, Y%, Radius%, Vertices%, Angle!)
  215. DECLARE SUB G13Write (St$)
  216. DECLARE SUB G13WriteLn (St$)
  217. DECLARE SUB PrintScreen (ScreenMode%)
  218. DECLARE SUB ScreenSize (Rows%, Columns%)
  219. DECLARE SUB VGetPalette (BYVAL PalReg%, Red%, Green%, Blue%)
  220. DECLARE SUB VPalette (BYVAL PalReg%, BYVAL Red%, BYVAL Green%, BYVAL Blue%)
  221.